home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).zip
/
Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).do
/
PRINTALL.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
806b
|
17 lines
5 D$ = CHR$(4): REM CONTROL-D
10 PRINT CHR$(4);"PR#1": REM CHANGE THIS LINE TO THE CORRECT PRINTER INITIALIZATION COMMAND
15 PRINT CHR$(4);"BLOAD B.SOFTTEXT,A$1000": REM LOAD THE FILE STARTING AT ADDRESS 4096
30 X = 4096: REM INITIALIZE X TO POINT TO THE BEGINNING OF THE FILE
40 Y = PEEK(X): REM GET THE VALUE STORED IN MEMORY AT X INTO Y
50 IF Y = 225 AND PEEK(X +1) <223 THEN GOTO 500: REM CHECK FOR COMMAND STRING AND SKIP TO 500
52 IF Y = 96 THEN GOTO 800: REM END OF THE FILE
55 IF Y >223 THEN Y = Y -64: REM MAKE SURE Y IS IN THE RANGE OF 141 TO 223
57 IF Y <141 THEN 70: REM SKIP CONTROL CHARACTERS
60 PRINT CHR$(Y);
70 X = X +1: REM INCREMENT X
80 GOTO 40
500 X = X +1
510 Y = PEEK(X)
520 IF Y = 141 THEN GOTO 70
530 GOTO 500
800 PRINT : PRINT D$;"PR#0": END